home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 147 / 147.d81 / b.hires sketch 2 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  44 lines
  1. 10 poke55,.:poke56,160:clr
  2. 11 poke700,15:rem background color
  3. 12 poke701,11:rem foreground color
  4. 13 poke702,00:rem sprite colors
  5. 14 poke703,35:rem zoom/spr/chr ed crsr                  ' raise to slow, etc.
  6. 15 gosub63000:a=16194:b=256:print"[144]p[207]44,a/b:p[207]43,a-p[197](44)*b:p[207]a-1,.:new"
  7. 20 print"l[207]"chr$(34)"hrs2.loader"chr$(34)","peek(186)"":print"r[213]";
  8. 30 poke198,3:poke631,13:poke632,13:poke633,13:end
  9. 40 '
  10. 50 ' lines 11-14 contain default values
  11. 60 '
  12. 75 ' you can temporarily change these
  13. 80 ' values before you run this program
  14. 85 ' or change and run line 100 for a
  15. 90 ' permanent alteration.
  16. 95 '
  17. 100 ifpeek(186)<8thenpoke186,8
  18. 110 d=peek(186):n$="b.hires sketch 2":open15,d,15,"s0:"+n$:close15:saven$,d:end
  19. 63000 dv=peek(186):ifdv<8thendv=8
  20. 63010 delay=116:poke53280,0:poke53281,0
  21. 63020 print"[147]";
  22. 63030 fori=11to23:print"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";:next
  23. 63035 print"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223]"
  24. 63040 print"":fori=217to242:pokei,peek(i)or128:next
  25. 63050 poke214,10:print"[145]"tab(2)"[153][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  26. 63060 fori=1to11:printtab(2)"[159]                                    [155][146][223]":next
  27. 63070 printtab(2)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][155][223]"
  28. 63080 print"[155][169][169][169][169][169][169][169][151][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223]"
  29. 63085 poke214,24:poke211,38:sys58732:printchr$(148);:poke646,1:print"[223]"
  30. 63090 poke214,11:print"[145][159]";
  31. 63100 fori=1to11:reada$
  32. 63110 printspc(20-len(a$)/2)""a$:a$="":next
  33. 63120 delay=delay+1:j=peek(56320)and16:geta$:if(a$="")andj<>0anddel<116then63120
  34. 63130 return
  35. 63140 data"[200] [201] - [210] [197] [211]   [211] [203] [197] [212] [195] [200]   [201] [201]","by [193]ndrew [205]artin
  36. 63150 [131]"  (len)1996 by mid$&asc (NULL)ublishing, right$nc."
  37. 63160 [131]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  38. 63170 data"   [212]his is the copyrighted work of
  39. 63180 [131]"mid$&asc (NULL)ublishing, right$nc., (NULL)(NULL)(NULL) intended
  40. 63190 data"for distribution as public domain ","or shareware.  [198]or information on
  41. 63200 [131]"(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) and (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) products,   "
  42. 63210 [131]"call (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) lenustomer service at"
  43. 63220 [131]"1-800-594-3370 or 1-318-221-8718
  44.